; Music of Black Beard (1988) (Topo Soft)
; Ripped by Megachur the 14/02/2009

	write "BLACKBEA.BIN"

music_date_rip	equ &0e29
music_adr	equ &2026
first_theme	equ 0
last_theme	equ 0	; 0 -> 0

	read "music_header_v1_0.asm"

	di
	ld a,(#0038)
	ld (l207d),a
	ld hl,(#0039)
	ld (l207e),hl
	ld a,#c3
	ld (#0038),a
	ld hl,l2080
	ld (#0039),hl
;
.init_music
;
	ld a,#00
	ld de,l288f
	call l20d0
	inc a
	ld de,l2984
	call l20d0
	inc a
	ld de,l299d
	call l20d0
;call #3f3f	modified by Megachur
	ret
	defs 2,0
;
.stop_music
;
	ld a,#00
	ld de,#0000
	call l20d0
	inc a
	call l20d0
	inc a
	call l20d0
	ld a,#01
	ld (l2083),a
	ei
;halt modified by Megachur
	ret
	di
	ld a,(#31ad)
	ld (#0038),a
	ld hl,(#31ae)
	ld (#0039),hl
	ei
	ret
.l207d
	nop
.l207e
	nop
	nop
;
.play_music_interrupt
;
.l2080
	di
	push af
.l2083 equ $ + 1
	ld a,#01
	dec a
	ld (l2083),a
	jr nz,l20a0
	ld a,#06
	ld (l2083),a
	push bc
	push de
	push hl
	push ix
	push iy
	call l20ef
	pop iy
	pop ix
	pop hl
	pop de
	pop bc
.l20a0
	pop af
	ei
	reti
	push af
	push de
	and #7f
	ld de,#002e
	call l2491
	ld de,l25eb
	add hl,de
	push hl
	ld a,(hl)
	inc hl
	or (hl)
	jr z,l20ca
	ld d,#03
	ld hl,l25eb
	ld bc,#002e
.l20c0
	inc hl
	ld a,(hl)
	dec hl
	or (hl)
	jr z,l20cd
	add hl,bc
	dec d
	jr nz,l20c0
.l20ca
	pop hl
	jr l20dc
.l20cd
	pop de
	jr l20dc
.l20d0
	push af
	push de
	ld de,#002e
	call l2491
	ld de,l25eb
	add hl,de
.l20dc
	push hl
	xor a
	ld b,#2e
.l20e0
	ld (hl),a
	inc hl
	djnz l20e0
	pop hl
	pop de
	ld (hl),e
	inc hl
	ld (hl),d
	inc hl
	ld (hl),e
	inc hl
	ld (hl),d
	pop af
	ret
;
.play_music
.l20ef
;
	push af
	ld b,#03
	xor a
	ld ix,l25eb
	ld de,l25e0
	ld hl,l25e8
.l20fd
	push af
	push hl
	push de
	push bc
	ld (l25de),a
	ld a,(ix+#04)
	or (ix+#05)
	jp nz,l2168
	xor a
	call l2432
	ld c,(ix+#02)
	ld b,(ix+#03)
	ld a,b
	or c
	jp z,l2221
.l211c
	ld a,(bc)
	cp #80
	jp c,l212b
	sub #80
	ld hl,l25c0
	call l24c0
	jp (hl)
.l212b
	push af
	call l2486
	pop af
	add (hl)
	ld hl,l2500
	call l24c0
	ld (ix+#0a),l
	ld (ix+#0b),h
	inc bc
.l213e
	ld a,(ix+#08)
	call l2432
	call l229d
	ld (ix+#2a),#00
	call l22b5
	ld (ix+#2b),#00
	ld (ix+#2c),#00
.l2156
	ld (ix+#02),c
	ld (ix+#03),b
	ld l,(ix+#06)
	ld h,(ix+#07)
	ld (ix+#04),l
	ld (ix+#05),h
.l2168
	ld l,(ix+#04)
	ld h,(ix+#05)
	dec hl
	ld (ix+#04),l
	ld (ix+#05),h
	push ix
	pop iy
	ld d,#02
	ld c,#00
.l217d
	ld a,(iy+#0c)
	or a
	jr z,l218a
	dec a
	ld (iy+#0c),a
	inc c
	jr l21ab
.l218a
	ld a,(iy+#0e)
	or a
	jr z,l21a6
	dec a
	ld (iy+#0e),a
	ld a,(ix+#2a)
	add (iy+#1b)
	ld (ix+#2a),a
	ld a,(iy+#20)
	ld (iy+#0c),a
	inc c
	jr l21ab
.l21a6
	inc iy
	dec d
	jr nz,l217d
.l21ab
	ld a,c
	or a
	jr nz,l21b6
	bit 0,(ix+#2d)
	call nz,l229d
.l21b6
	push ix
	pop iy
	ld d,#03
	ld c,#00
.l21be
	ld a,(iy+#10)
	or a
	jr z,l21cb
	dec a
	ld (iy+#10),a
	inc c
	jr l2216
.l21cb
	ld a,(iy+#13)
	or a
	jr z,l2211
	dec a
	ld (iy+#13),a
	ld a,(iy+#1d)
	or a
	jp p,l21f5
	ld a,(iy+#1d)
	cpl
	inc a
	ld e,a
	ld a,(ix+#2b)
	sub e
	ld (ix+#2b),a
	ld a,(ix+#2c)
	sbc #00
	and #0f
	ld (ix+#2c),a
	jr l2208
.l21f5
	ld a,(ix+#2b)
	add (iy+#1d)
	ld (ix+#2b),a
	ld a,(ix+#2c)
	adc #00
	and #0f
	ld (ix+#2c),a
.l2208
	ld a,(iy+#22)
	ld (iy+#10),a
	inc c
	jr l2216
.l2211
	inc iy
	dec d
	jr nz,l21be
.l2216
	ld a,c
	or a
	jr nz,l2221
	bit 1,(ix+#2d)
	call nz,l22b5
.l2221
	pop bc
	pop de
	pop hl
	ld a,(ix+#09)
	add (ix+#2a)
	and #0f
	ld (hl),a
	ld a,(ix+#0a)
	add (ix+#2b)
	ld (de),a
	inc de
	ld a,(ix+#0b)
	adc (ix+#2c)
	ld (de),a
	inc de
	push de
	ld de,#002e
	add ix,de
	pop de
	pop af
	inc a
	inc hl
	dec b
	jp nz,l20fd
	ld iy,l2675
	ld d,#02
	ld c,#00
.l2253
	ld a,(iy+#00)
	or a
	jr z,l2260
	dec a
	ld (iy+#00),a
	inc c
	jr l2281
.l2260
	ld a,(iy+#02)
	or a
	jr z,l227c
	dec a
	ld (iy+#02),a
	ld a,(l2681)
	add (iy+#06)
	ld (l2681),a
	ld a,(iy+#08)
	ld (iy+#00),a
	inc c
	jr l2281
.l227c
	inc iy
	dec d
	jr nz,l2253
.l2281
	ld a,c
	or a
	jr nz,l228d
	ld a,(l267f)
	bit 2,a
	call nz,l22cd
.l228d
	ld a,(l2680)
	ld e,a
	ld a,(l2681)
	add e
	ld (l25e6),a
	call l24cd
	pop af
	ret
.l229d
	push ix
	ld d,#02
.l22a1
	ld a,(ix+#20)
	ld (ix+#0c),a
	ld a,(ix+#16)
	ld (ix+#0e),a
	inc ix
	dec d
	jr nz,l22a1
	pop ix
	ret
.l22b5
	ld d,#03
	push ix
.l22b9
	ld a,(ix+#22)
	ld (ix+#10),a
	ld a,(ix+#18)
	ld (ix+#13),a
	inc ix
	dec d
	jr nz,l22b9
	pop ix
	ret
.l22cd
	ld d,#02
	push iy
	ld iy,l2675
.l22d5
	ld a,(iy+#08)
	ld (iy+#00),a
	ld a,(iy+#04)
	ld (iy+#02),a
	inc iy
	dec d
	jr nz,l22d5
	pop iy
	ret
.l22e9
	inc bc
	ld a,(bc)
	ld (ix+#09),a
	inc bc
	jp l211c
.l22f2
	inc bc
	ld a,(bc)
	ld de,(l25df)
	ld d,#00
	call l2491
	ld (ix+#06),l
	ld (ix+#07),h
	inc bc
	jp l211c
.l2307
	inc bc
	ld a,(bc)
	and #09
	ld (ix+#08),a
	inc bc
	jp l211c
.l2312
	push ix
	pop hl
	xor a
	ld b,#2e
.l2318
	ld (hl),a
	inc hl
	djnz l2318
	ld a,(l25de)
	ld hl,l2682
	xor (hl)
	jp nz,l2221
	ld hl,l2675
	ld de,l2676
	ld bc,#000a
	ld (hl),a
	ldir
	inc de
	ld (de),a
	jp l2221
.l2337
	inc bc
	ld a,(bc)
	push bc
	ld de,#0010
	call l2491
	ld bc,#0bb8
	push hl
	pop de
	call l24a6
	ld a,c
	ld (l25df),a
	pop bc
	inc bc
	jp l211c
.l2351
	inc bc
	ld a,(bc)
	push af
	and #1f
	ld (l2680),a
	call l22cd
	pop af
	inc bc
	or a
	jp m,l211c
	jp l213e
.l2365
	inc bc
	jp l2156
.l2369
	ld c,(ix+#00)
	ld b,(ix+#01)
	ld (ix+#02),c
	ld (ix+#03),b
	jp l211c
.l2378
	inc bc
	ld a,(bc)
	inc bc
	ld de,#0000
.l237e
	push af
	ld a,(bc)
	push de
	ld de,(l25df)
	ld d,#00
	call l2491
	pop de
	add hl,de
	ex de,hl
	inc bc
	pop af
	dec a
	jr nz,l237e
	ld (ix+#06),l
	ld (ix+#07),h
	jp l211c
.l239b
	inc bc
	ld a,(bc)
	ld e,a
	or (ix+#2d)
	ld (ix+#2d),a
	ld a,(l267f)
	or e
	ld (l267f),a
	inc bc
	jp l211c
.l23af
	inc bc
	res 0,(ix+#2d)
	res 1,(ix+#2d)
	ld a,(bc)
	ld de,#000f
	call l2491
	ld de,l268c
	add hl,de
	push ix
	ld d,#0f
.l23c7
	ld a,(hl)
	ld (ix+#16),a
	inc hl
	inc ix
	dec d
	jp nz,l23c7
	pop ix
	inc bc
	ld (ix+#0c),#00
	ld (ix+#0d),#00
	ld (ix+#10),#00
	ld (ix+#11),#00
	ld (ix+#12),#00
	ld (ix+#2a),#00
	ld (ix+#2b),#00
	ld (ix+#2c),#00
	jp l211c
.l23f8
	inc bc
	ld a,(l267f)
	res 2,a
	ld (l267f),a
	ld a,(bc)
	ld de,#0006
	call l2491
	ld de,l26f5
	add hl,de
	ld iy,l2675
	ld (iy+#00),#00
	ld (iy+#01),#00
	ld d,#06
.l241a
	ld a,(hl)
	ld (iy+#04),a
	inc hl
	inc iy
	dec d
	jr nz,l241a
	xor a
	ld (l2681),a
	inc bc
	ld a,(l25de)
	ld (l2682),a
	jp l211c
.l2432
	push de
	cpl
	ld e,a
	ld d,#09
	ld a,(l25de)
.l243a
	dec a
	jp m,l2445
	scf
	rl e
	sla d
	jr l243a
.l2445
	ld a,(l25e7)
	or d
	and e
	ld (l25e7),a
	pop de
	ret
.l244f
	ld a,(l25de)
	inc bc
	add a
	ld l,a
	ld h,#00
	ld a,(bc)
	inc bc
	ld de,l2683
	add hl,de
	ld (hl),c
	inc hl
	ld (hl),b
	ld hl,l2701
	call l24c0
	ld b,h
	ld c,l
	jp l211c
.l246b
	ld a,(l25de)
	add a
	ld l,a
	ld h,#00
	ld de,l2683
	add hl,de
	ld c,(hl)
	inc hl
	ld b,(hl)
	jp l211c
.l247c
	inc bc
	call l2486
	ld a,(bc)
	inc bc
	ld (hl),a
	jp l211c
.l2486
	ld a,(l25de)
	ld l,a
	ld h,#00
	ld de,l2689
	add hl,de
	ret
.l2491
	ld hl,#0000
	and a
	ret z
	push bc
	ld b,#08
.l2499
	srl a
	jr nc,l249e
	add hl,de
.l249e
	sla e
	rl d
	djnz l2499
	pop bc
	ret
.l24a6
	push af
	ld hl,#0000
	ld a,b
	ld b,#10
.l24ad
	rl c
	rla
	adc hl,hl
	sbc hl,de
	jr nc,l24b7
	add hl,de
.l24b7
	ccf
	djnz l24ad
	rl c
	rla
	ld b,a
	pop af
	ret
.l24c0
	push af
	add a
	add l
	ld l,a
	jr nc,l24c7
	inc h
.l24c7
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	pop af
	ret
.l24cd
	ld b,#f7
	ld c,#82
	out (c),c
	ld hl,l25e0
	ld a,#00
	ld d,#0b
.l24da
	push af
	ld c,(hl)
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	pop af
	inc a
	inc hl
	dec d
	jr nz,l24da
	ret
.l2500
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
.l25c0
	dw l22e9,l2307,l2369,l22f2
	dw l2365,l2337,l2378,l23af
	dw l2351,l23f8,l239b,l2312
	dw l244f,l246b,l247c
.l25e0 equ $ + 2
.l25df equ $ + 1
.l25de
	db #00,#00,#00,#00,#00,#00,#00,#00
.l25e8 equ $ + 2
.l25e7 equ $ + 1
.l25e6
	db #00,#00,#00,#00,#00
.l25eb
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l2676 equ $ + 3
.l2675 equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
.l2682 equ $ + 7
.l2681 equ $ + 6
.l2680 equ $ + 5
.l267f equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
.l2689 equ $ + 6
.l2683
	db #00,#00,#00,#00,#00,#00,#00,#00
.l268c equ $ + 1
	db #00,#07,#00,#00,#00,#00,#fe,#00
	db #00,#00,#00,#01,#00,#00,#00,#00
	db #0a,#00,#00,#00,#00,#ff,#00,#00
	db #00,#00,#02,#00,#00,#00,#00,#06
	db #00,#1e,#00,#00,#fe,#00,#e2,#00
	db #00,#01,#00,#01,#00,#00,#01,#01
	db #00,#00,#00,#04,#fc,#00,#00,#00
	db #01,#01,#00,#00,#00,#01,#01,#01
	db #01,#00,#04,#fc,#03,#fd,#00,#01
	db #01,#01,#01,#00,#01,#01,#14,#01
	db #00,#00,#f1,#00,#00,#00,#03,#01
	db #00,#00,#00,#07,#00,#01,#01,#00
	db #ff,#00,#01,#ff,#00,#02,#00,#01
.l26f5 equ $ + 2
	db #01,#00,#0a,#00,#03,#00,#01,#00
	db #1e,#00,#f7,#00
	db #01,#00
.l2701
	dw l272b,l273c,l274d,l275e
	dw l276f,l2780,l279f,l2791
	dw l2798,l280b,l272b,l272b
	dw l272b,l272b,l272b,l272b
	dw l272b,l272b,l272b,l272b
	dw l272b
.l272b
	db #87,#00,#80,#0e,#83,#08,#81,#01
	db #8a,#00,#21,#84,#24,#1c,#84,#24
.l273c equ $ + 1
	db #8d,#87,#00,#80,#0e,#83,#08,#81
	db #01,#8a,#00,#21,#84,#24,#1c,#1e
.l274d equ $ + 2
	db #20,#8d,#87,#00,#80,#0e,#83,#08
	db #81,#01,#8a,#00,#84,#84,#28,#84
.l275e equ $ + 3
	db #84,#28,#8d,#87,#00,#80,#0e,#83
	db #08,#81,#01,#8a,#00,#84,#84,#28
.l276f equ $ + 4
	db #26,#24,#23,#8d,#87,#00,#80,#0e
	db #83,#08,#81,#01,#8a,#00,#24,#84
.l2780 equ $ + 5
	db #28,#1f,#84,#28,#8d,#87,#00,#80
	db #0e,#83,#08,#81,#01,#8a,#00,#24
.l2791 equ $ + 6
	db #84,#28,#1f,#21,#23,#8d,#84,#84
.l2798 equ $ + 5
	db #2b,#84,#84,#2b,#8d,#84,#84,#2b
.l279f equ $ + 4
	db #29,#28,#26,#8d,#80,#0e,#83,#b8
	db #84,#83,#08
	db #1c,#21,#84,#23,#24,#84,#26,#28
	db #29,#27,#28,#84,#1c,#21,#84,#23
	db #24,#84,#26,#28,#29,#27,#28,#84
	db #28,#2d,#84,#2d,#2b,#84,#2b,#28
	db #84,#28,#2a,#84,#2b,#83,#30,#8a
	db #02,#2a,#8a,#00,#83,#08,#28,#29
	db #28,#26,#24,#23,#21,#84,#23,#24
	db #84,#26,#28,#29,#27,#28,#84,#1c
	db #21,#84,#23,#24,#84,#26,#28,#29
	db #27,#28,#84,#28,#2d,#2b,#29,#2b
	db #29,#28,#29,#28,#26,#28,#26,#24
	db #26,#24,#23,#24,#23,#21,#23,#24
	db #23,#21
.l280b equ $ + 3
	db #84,#84,#8d,#83,#10,#29,#83,#08
	db #28,#83,#10,#29,#83,#08,#26,#83
	db #10,#29,#83,#08,#2d,#83,#10,#2b
	db #83,#08,#29,#83,#10,#28,#83,#08
	db #26,#83,#10,#24,#83,#08,#26,#83
	db #10,#28,#83,#08,#21,#83,#10,#23
	db #83,#08,#24,#83,#10,#26,#83,#08
	db #25,#83,#10,#26,#83,#08,#25,#83
	db #10,#26,#83,#08,#29,#83,#10,#28
	db #83,#08,#26,#83,#18,#25,#26,#83
	db #10,#28,#83,#08,#25,#83,#10,#26
	db #83,#08,#28,#29,#26,#28,#29,#26
	db #28,#29,#2d,#2c,#2d,#29,#26,#28
	db #21,#24,#28,#2b,#29,#28,#2d,#2f
	db #30,#2f,#2d,#2f,#2c,#28,#2f,#2c
	db #28,#2f,#2c,#28,#32,#30,#2f,#83
.l288f equ $ + 7
	db #60,#8a,#02,#2d,#8a,#00,#8d,#85
	db #64,#8e,#06,#8c,#00,#8c,#01,#8c
	db #00,#8c,#01,#8c,#00,#8c,#01,#8c
	db #00,#8c,#01,#8c,#00,#8c,#04,#8e
	db #fc,#8c,#04,#8e,#fe,#8c,#04,#8e
	db #06,#8c,#00,#8c,#01,#8c,#00,#8c
	db #01,#87,#06,#8a,#00,#80,#0d,#81
	db #01,#8e,#06
	db #21,#24,#28,#24,#28,#2b,#26,#29
	db #2d,#21,#24,#28,#26,#29,#2d,#21
	db #24,#28,#23,#28,#2a,#28
	db #84,#84,#8c,#00,#8c,#01,#8c,#00
	db #8c,#01,#8c,#00,#8c,#01,#8c,#00
	db #8c,#01,#8c,#00,#8c,#04,#8e,#fc
	db #8c,#04,#8e,#fe,#8c,#04,#8e,#06
	db #8c,#00,#8c,#01,#8c,#00,#8c,#01
	db #87,#06,#8a,#00,#80,#0d,#81,#01
	db #8e,#06
	db #21,#24,#28,#24,#28,#2b,#26,#29
	db #2d,#21,#24,#28,#26,#29,#2d,#21
	db #24,#28,#23,#28,#2a,#28
	db #84,#84,#8e,#0b,#8c,#00,#8c,#00
	db #8e,#06,#8c,#00,#8c,#01,#8e,#0a
	db #8c,#04,#8c,#04,#8e,#03,#8c,#04
	db #8c,#04,#8e,#0b,#8c,#00,#8c,#00
	db #8e,#06,#8c,#00,#8c,#01,#8e,#0a
	db #8c,#04,#8c,#04,#8e,#06,#8c,#00
	db #8c,#01,#8e,#0b,#8c,#00,#8c,#00
	db #8e,#06,#8c,#00,#8c,#01,#8e,#0a
	db #8c,#04,#8c,#04,#8e,#03,#8c,#04
	db #8c,#04,#8e,#0b,#8c,#00,#8c,#00
	db #8e,#06,#8c,#00,#8c,#01,#8e,#0a
	db #8c,#04,#8c,#04,#8e,#06,#8c,#00
.l2984 equ $ + 3
	db #8c,#01,#82,#85,#64,#87,#06,#8a
	db #00,#81,#01,#8e,#12,#8c,#06,#8e
	db #06,#8c,#06,#8e,#12,#8c,#09,#8e
.l299d equ $ + 4
	db #06,#8c,#09,#82,#85,#64,#8e,#06
	db #8c,#02,#8c,#03,#8c,#02,#8c,#03
	db #8c,#02,#8c,#03,#8c,#02,#8c,#03
	db #8c,#02,#8c,#07,#8e,#fc,#8c,#07
	db #8e,#fe,#8c,#07,#8e,#06,#8c,#02
	db #8c,#03,#8c,#02,#8c,#03,#87,#06
	db #80,#0a,#8a,#00,#81,#01,#8e,#12
	db #1c,#21,#24,#1f,#24,#28,#21,#26
	db #29,#1c,#21,#24,#21,#24,#29,#1c
	db #21,#24,#1c,#20,#23,#21
	db #84,#84,#8e,#06,#8c,#02,#8c,#03
	db #8c,#02,#8c,#03,#8c,#02,#8c,#03
	db #8c,#02,#8c,#03,#8c,#02,#8c,#07
	db #8e,#fc,#8c,#07,#8e,#fe,#8c,#07
	db #8e,#06,#8c,#02,#8c,#03,#8c,#02
	db #8c,#03,#87,#06,#80,#0a,#8a,#00
	db #81,#01,#8e,#12,#1c,#21,#24,#1f
	db #24,#28,#21,#26,#29,#1c,#21,#24
	db #21,#24,#29,#1c,#21,#24,#1c,#20
	db #23,#21,#84,#84,#8e,#0b,#8c,#02
	db #8c,#02,#8e,#06,#8c,#02,#8c,#03
	db #8e,#0a,#8c,#07,#8c,#07,#8e,#06
	db #8c,#02,#8e,#03,#8c,#07,#8e,#0b
	db #8c,#02,#8c,#02,#8e,#06,#8c,#02
	db #8c,#03,#8e,#0a,#8c,#07,#8c,#07
	db #8e,#06,#8c,#02,#8c,#03,#8e,#0b
	db #8c,#02,#8c,#02,#8e,#06,#8c,#02
	db #8c,#03,#8e,#0a,#8c,#07,#8c,#07
	db #8e,#06,#8c,#02,#8e,#03,#8c,#07
	db #8e,#0b,#8c,#02,#8c,#02,#8e,#06
	db #8c,#02,#8c,#03,#8e,#0a,#8c,#07
	db #8c,#07,#8e,#06,#8c,#02,#8c,#03
	db #82,#00,#00
;
.game_name
	db "Black Beard",0
.game_year
	db "1988",0
.game_publisher
	db "Topo Soft",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
